home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / ADnoteUI.fl next >
Text File  |  2005-03-14  |  47KB  |  1,108 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0106 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include "../Params/ADnoteParameters.h"} {public
  10. } 
  11.  
  12. decl {\#include "../Misc/Util.h"} {public
  13. } 
  14.  
  15. decl {\#include "../Misc/Master.h"} {public
  16. } 
  17.  
  18. decl {\#include "ResonanceUI.h"} {public
  19. } 
  20.  
  21. decl {\#include <FL/Fl_Box.H>} {public
  22. } 
  23.  
  24. decl {\#include <FL/Fl_Group.H>} {public
  25. } 
  26.  
  27. decl {\#include <math.h>} {} 
  28.  
  29. decl {\#include <stdio.h>} {} 
  30.  
  31. decl {\#include <stdlib.h>} {} 
  32.  
  33. decl {\#include <string.h>} {} 
  34.  
  35. decl {\#include "WidgetPDial.h"} {public
  36. } 
  37.  
  38. decl {\#include "EnvelopeUI.h"} {public
  39. } 
  40.  
  41. decl {\#include "LFOUI.h"} {public
  42. } 
  43.  
  44. decl {\#include "FilterUI.h"} {public
  45. } 
  46.  
  47. decl {\#include "OscilGenUI.h"} {public
  48. } 
  49.  
  50. decl {\#include "PresetsUI.h"} {public
  51. } 
  52.  
  53. class ADvoicelistitem {: {public Fl_Group}
  54. } {
  55.   Function {make_window()} {private
  56.   } {
  57.     Fl_Window ADnoteVoiceListItem {
  58.       private xywh {247 599 615 30} type Double hide
  59.       class Fl_Group
  60.     } {
  61.       Fl_Group voicelistitemgroup {
  62.         private xywh {50 0 570 25} box FLAT_BOX
  63.         code0 {if (pars->VoicePar[nvoice].Enabled==0) o->deactivate();}
  64.       } {
  65.         Fl_Value_Slider voicevolume {
  66.           callback {pars->VoicePar[nvoice].PVolume=(int)o->value();}
  67.           tooltip Volume xywh {90 5 115 20} type {Horz Knob} box FLAT_BOX labelsize 8 align 5 maximum 127 step 1
  68.           code0 {o->value(pars->VoicePar[nvoice].PVolume);}
  69.         }
  70.         Fl_Check_Button voiceresonanceenabled {
  71.           callback {pars->VoicePar[nvoice].Presonance=(int)o->value();}
  72.           tooltip {Resonance On/Off} xywh {245 7 15 17} down_box DOWN_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 12 align 4
  73.           code0 {o->value(pars->VoicePar[nvoice].Presonance);}
  74.         }
  75.         Fl_Value_Slider voicelfofreq {
  76.           callback {pars->VoicePar[nvoice].FreqLfo->Pintensity=(int)o->value();}
  77.           tooltip {Frequency LFO amount} xywh {500 5 115 20} type {Horz Knob} box FLAT_BOX labelsize 8 align 5 maximum 127 step 1
  78.           code0 {o->value(pars->VoicePar[nvoice].FreqLfo->Pintensity);}
  79.         }
  80.         Fl_Dial voicepanning {
  81.           callback {pars->VoicePar[nvoice].PPanning=(int) o->value();}
  82.           tooltip {Panning (leftmost is Random)} xywh {215 5 20 20} box ROUND_UP_BOX labelsize 11 align 4 maximum 127 step 1
  83.           code0 {o->value(pars->VoicePar[nvoice].PPanning);}
  84.           class WidgetPDial
  85.         }
  86.         Fl_Group voiceoscil {open
  87.           xywh {60 5 30 20} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  88.           code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  89.           code1 {osc->init(pars->VoicePar[nvoice].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);}
  90.           code2 {if (pars->VoicePar[nvoice].Pextoscil != -1) {osc->init(pars->VoicePar[pars->VoicePar[nvoice].Pextoscil].OscilSmp,master);}}
  91.         } {}
  92.         Fl_Value_Output detunevalueoutput {
  93.           callback {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}
  94.           xywh {265 5 45 20} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  95.           code0 {o->value(getdetune(pars->VoicePar[nvoice].PDetuneType,0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}
  96.         }
  97.         Fl_Slider voicedetune {
  98.           callback {pars->VoicePar[nvoice].PDetune=(int)o->value()+8192;
  99. detunevalueoutput->do_callback();}
  100.           tooltip {Fine Detune (cents)} xywh {315 5 185 20} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  101.           code0 {o->value(pars->VoicePar[nvoice].PDetune-8192);}
  102.         }
  103.         Fl_Box noiselabel {
  104.           label N
  105.           callback {if (pars->VoicePar[nvoice].Type==0) {
  106.   o->hide();
  107.   voiceresonanceenabled->activate();
  108.   detunevalueoutput->activate();
  109.   voicedetune->activate();
  110.   voicelfofreq->activate();
  111.   voiceoscil->activate();
  112. } else {
  113.   o->show();
  114.   voiceresonanceenabled->deactivate();
  115.   detunevalueoutput->deactivate();
  116.   voicedetune->deactivate();
  117.   voicelfofreq->deactivate();
  118.   voiceoscil->deactivate();
  119. };}
  120.           xywh {65 5 20 20} labelfont 1 labelsize 16 labelcolor 7
  121.           code0 {if (pars->VoicePar[nvoice].Type==0) o->hide();}
  122.         }
  123.       }
  124.       Fl_Check_Button voiceenabled {
  125.         label 01
  126.         callback {pars->VoicePar[nvoice].Enabled=(int)o->value();
  127. if (o->value()==0) voicelistitemgroup->deactivate();
  128. else voicelistitemgroup->activate();
  129. o->redraw();}
  130.         private xywh {30 5 20 20} down_box DOWN_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 4
  131.         code0 {char tmp[10];snprintf(tmp,10,"%d",nvoice+1);o->label(strdup(tmp));}
  132.         code1 {o->value(pars->VoicePar[nvoice].Enabled);}
  133.       }
  134.     }
  135.   }
  136.   Function {ADvoicelistitem(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  137.     code {nvoice=0;
  138. pars=NULL;} {}
  139.   }
  140.   Function {init(ADnoteParameters *parameters,int nvoice_,Master *master_)} {} {
  141.     code {pars=parameters;
  142. nvoice=nvoice_;
  143. master=master_;
  144. make_window();
  145. ADnoteVoiceListItem->show();
  146. end();} {}
  147.   }
  148.   Function {refreshlist()} {} {
  149.     code {voiceenabled->value(pars->VoicePar[nvoice].Enabled);
  150. voiceresonanceenabled->value(pars->VoicePar[nvoice].Presonance);
  151. voicevolume->value(pars->VoicePar[nvoice].PVolume);
  152. voicedetune->value(pars->VoicePar[nvoice].PDetune-8192);
  153. voicepanning->value(pars->VoicePar[nvoice].PPanning);
  154. voicelfofreq->value(pars->VoicePar[nvoice].FreqLfo->Pintensity);
  155. if (pars->VoicePar[nvoice].Pextoscil != -1) {
  156.   osc->init(pars->VoicePar[pars->VoicePar[nvoice].Pextoscil].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);
  157. } else 
  158.   osc->init(pars->VoicePar[nvoice].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);
  159. if (pars->VoicePar[nvoice].Enabled==0) voicelistitemgroup->deactivate();
  160.     else voicelistitemgroup->activate();
  161. detunevalueoutput->do_callback();
  162. noiselabel->do_callback();
  163. ADnoteVoiceListItem->redraw();} {}
  164.   }
  165.   Function {~ADvoicelistitem()} {} {
  166.     code {ADnoteVoiceListItem->hide();
  167. //delete(ADnoteVoiceListItem);} {}
  168.   }
  169.   decl {ADnoteParameters *pars;} {}
  170.   decl {int nvoice;} {}
  171.   decl {Oscilloscope *osc;} {}
  172.   decl {Master *master;} {}
  173. } 
  174.  
  175. class ADvoiceUI {: {public Fl_Group}
  176. } {
  177.   Function {make_window()} {} {
  178.     Fl_Window ADnoteVoiceParameters {
  179.       label Voice
  180.       xywh {231 132 765 525} type Double hide
  181.       class Fl_Group
  182.     } {
  183.       Fl_Group voiceparametersgroup {
  184.         xywh {0 0 765 525} box THIN_UP_BOX color 48
  185.         code0 {if (pars->VoicePar[nvoice].Enabled==0) o->deactivate();}
  186.       } {
  187.         Fl_Group voicemodegroup {
  188.           xywh {0 5 760 515}
  189.         } {
  190.           Fl_Group voiceFMparametersgroup {
  191.             label MODULATOR
  192.             xywh {530 5 230 515} box THIN_UP_FRAME color 48 labeltype EMBOSSED_LABEL labelfont 1 labelsize 18 align 17
  193.             code0 {if (pars->VoicePar[nvoice].PFMEnabled==0) o->deactivate();}
  194.           } {
  195.             Fl_Group modfrequency {
  196.               label {Mod.FREQUENCY}
  197.               xywh {535 220 220 145} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  198.             } {
  199.               Fl_Group voiceFMfreqenvgroup {
  200.                 label {ADSynth Modulator - Frequency Envelope}
  201.                 xywh {540 290 205 70} box FLAT_BOX color 51 align 144
  202.                 code0 {o->init(pars->VoicePar[nvoice].FMFreqEnvelope);}
  203.                 code1 {if (pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled==0) o->deactivate();}
  204.                 class EnvelopeUI
  205.               } {}
  206.               Fl_Check_Button {} {
  207.                 label Enable
  208.                 callback {pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled=(int)o->value();
  209. if (o->value()==0) voiceFMfreqenvgroup->deactivate();
  210. else voiceFMfreqenvgroup->activate();
  211. o->redraw();}
  212.                 tooltip {Forced Relase} xywh {545 295 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  213.                 code0 {o->value(pars->VoicePar[nvoice].PFMFreqEnvelopeEnabled);}
  214.               }
  215.               Fl_Counter {} {
  216.                 label {Coarse Det.}
  217.                 callback {int k=(int) o->value();
  218. if (k<0) k+=1024;
  219. pars->VoicePar[nvoice].PFMCoarseDetune = k+
  220.    (pars->VoicePar[nvoice].PFMCoarseDetune/1024)*1024;}
  221.                 tooltip {Coarse Detune} xywh {685 270 60 15} labelsize 11 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  222.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune%1024;}
  223.                 code1 {if (k>=512) k-=1024;}
  224.                 code2 {o->value(k);}
  225.                 code3 {o->lstep(10);}
  226.               }
  227.               Fl_Counter {} {
  228.                 label Octave
  229.                 callback {int k=(int) o->value();
  230. if (k<0) k+=16;
  231. pars->VoicePar[nvoice].PFMCoarseDetune = k*1024+
  232.    pars->VoicePar[nvoice].PFMCoarseDetune%1024;}
  233.                 tooltip Octave xywh {625 270 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  234.                 code0 {int k=pars->VoicePar[nvoice].PFMCoarseDetune/1024;}
  235.                 code1 {if (k>=8) k-=16;}
  236.                 code2 {o->value(k);}
  237.               }
  238.               Fl_Slider {} {
  239.                 callback {pars->VoicePar[nvoice].PFMDetune=(int)o->value()+8192;
  240. fmdetunevalueoutput->do_callback();}
  241.                 tooltip {Fine Detune (cents)} xywh {590 245 160 10} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  242.                 code0 {o->value(pars->VoicePar[nvoice].PFMDetune-8192);}
  243.               }
  244.               Fl_Value_Output fmdetunevalueoutput {
  245.                 label Detune
  246.                 callback {o->value(getdetune((pars->VoicePar[nvoice].PFMDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PFMDetuneType),0,pars->VoicePar[nvoice].PFMDetune));}
  247.                 xywh {540 245 45 13} labelsize 8 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 8
  248.                 code0 {o->value(getdetune((pars->VoicePar[nvoice].PFMDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PFMDetuneType),0,pars->VoicePar[nvoice].PFMDetune));}
  249.                 code1 {//o->value(getdetune(pars->VoicePar[nvoice].PFMDetuneType,0,pars->VoicePar[nvoice].PFMDetune));}
  250.               }
  251.               Fl_Choice {} {
  252.                 label {Detune Type}
  253.                 callback {pars->VoicePar[nvoice].PFMDetuneType=(int) o->value();
  254. fmdetunevalueoutput->do_callback();} open
  255.                 xywh {540 270 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  256.                 code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  257.                 code1 {o->value(pars->VoicePar[nvoice].PFMDetuneType);}
  258.               } {}
  259.             }
  260.             Fl_Group {} {
  261.               label {Mod.AMPLITUDE}
  262.               xywh {535 60 220 160} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  263.             } {
  264.               Fl_Value_Slider {} {
  265.                 label Vol
  266.                 callback {pars->VoicePar[nvoice].PFMVolume=(int)o->value();}
  267.                 tooltip Volume xywh {540 80 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  268.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolume);}
  269.               }
  270.               Fl_Value_Slider {} {
  271.                 label {V.Sns}
  272.                 callback {pars->VoicePar[nvoice].PFMVelocityScaleFunction=(int) o->value();}
  273.                 tooltip {Velocity Sensing Function (rightmost to disable)} xywh {540 100 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  274.                 code0 {o->value(pars->VoicePar[nvoice].PFMVelocityScaleFunction);}
  275.               }
  276.               Fl_Group voiceFMampenvgroup {
  277.                 label {ADSynth Modulator - Amplitude Envelope} open
  278.                 xywh {540 145 205 70} box FLAT_BOX color 51 align 144
  279.                 code0 {o->init(pars->VoicePar[nvoice].FMAmpEnvelope);}
  280.                 code1 {if (pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled==0) o->deactivate();}
  281.                 class EnvelopeUI
  282.               } {}
  283.               Fl_Check_Button {} {
  284.                 label Enable
  285.                 callback {pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled=(int)o->value();
  286. if (o->value()==0) voiceFMampenvgroup->deactivate();
  287. else voiceFMampenvgroup->activate();
  288. o->redraw();}
  289.                 tooltip {Forced Relase} xywh {545 150 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  290.                 code0 {o->value(pars->VoicePar[nvoice].PFMAmpEnvelopeEnabled);}
  291.               }
  292.               Fl_Value_Slider {} {
  293.                 label {F.Damp}
  294.                 callback {pars->VoicePar[nvoice].PFMVolumeDamp=(int) o->value()+64;}
  295.                 tooltip {Modulator Damp at Higher frequency} xywh {540 120 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 minimum -64 maximum 63 step 1
  296.                 code0 {o->value(pars->VoicePar[nvoice].PFMVolumeDamp-64);}
  297.               }
  298.             }
  299.             Fl_Group modoscil {
  300.               xywh {535 365 220 150}
  301.             } {
  302.               Fl_Group fmoscil {open
  303.                 xywh {535 405 220 110} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  304.                 code0 {oscFM=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  305.                 code1 {int nv=nvoice; if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;}
  306.                 code2 {oscFM->init(pars->VoicePar[nv].FMSmp,0,pars->VoicePar[nvoice].PFMoscilphase,master);}
  307.               } {}
  308.               Fl_Box {} {
  309.                 label {Mod.Oscillator}
  310.                 xywh {535 365 155 20} labelfont 1 align 20
  311.               }
  312.               Fl_Button changeFMoscilbutton {
  313.                 label Change
  314.                 callback {if (oscedit!=NULL) delete(oscedit);
  315.  
  316. int nv=nvoice;
  317. if (pars->VoicePar[nvoice].PextFMoscil>=0) nv=pars->VoicePar[nvoice].PextFMoscil;
  318.  
  319. oscedit=new OscilEditor(pars->VoicePar[nv].FMSmp,fmoscil,NULL,NULL,master);} selected
  320.                 xywh {700 370 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
  321.                 code0 {if (pars->VoicePar[nvoice].PextFMoscil>=0) o->labelcolor(FL_BLUE);}
  322.               }
  323.               Fl_Slider {} {
  324.                 label Phase
  325.                 callback {pars->VoicePar[nvoice].PFMoscilphase=64-(int)o->value();
  326. oscFM->phase=64-(int) o->value();
  327. fmoscil->redraw();}
  328.                 xywh {665 395 65 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  329.                 code0 {o->value(64-pars->VoicePar[nvoice].PFMoscilphase);}
  330.               }
  331.               Fl_Choice {} {
  332.                 label Use
  333.                 callback {pars->VoicePar[nvoice].PextFMoscil=(int)o->value()-1;
  334. if ((int) o->value() != 0) {
  335.     oscFM->init(pars->VoicePar[(int) o->value()-1].FMSmp,master);
  336.     changeFMoscilbutton->labelcolor(FL_BLUE);
  337. } else { 
  338.     oscFM->init(pars->VoicePar[nvoice].FMSmp,master);
  339.     changeFMoscilbutton->labelcolor(FL_BLACK);
  340. };
  341. voiceFMparametersgroup->redraw();} open
  342.                 xywh {560 390 75 15} down_box BORDER_BOX labelsize 10 textfont 1 textsize 10
  343.                 code0 {o->add("Internal");}
  344.                 code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtM.%2d",i+1);o->add(tmp);};}
  345.                 code3 {o->value(pars->VoicePar[nvoice].PextFMoscil+1);}
  346.               } {}
  347.             }
  348.             Fl_Choice {} {
  349.               label {External Mod.}
  350.               callback {pars->VoicePar[nvoice].PFMVoice=(int)o->value()-1;
  351. if ((int) o->value() != 0) {
  352.     modoscil->deactivate();
  353.     modfrequency->deactivate();
  354. } else { 
  355.     modoscil->activate();
  356.     modfrequency->activate();
  357. };
  358. voiceFMparametersgroup->redraw();} open
  359.               xywh {635 40 85 20} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  360.               code0 {o->add("OFF");}
  361.               code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"ExtMod.%2d",i+1);o->add(tmp);};}
  362.               code2 {o->value(pars->VoicePar[nvoice].PFMVoice+1);}
  363.               code3 {if ((int) o->value() != 0) {modoscil->deactivate();modfrequency->deactivate();}}
  364.             } {}
  365.           }
  366.           Fl_Choice {} {
  367.             label {Type:}
  368.             callback {pars->VoicePar[nvoice].PFMEnabled=(int)o->value();
  369. if (o->value()==0) voiceFMparametersgroup->deactivate();
  370. else voiceFMparametersgroup->activate();
  371. o->redraw();}
  372.             xywh {535 40 80 20} down_box BORDER_BOX align 5
  373.             code0 {o->value(pars->VoicePar[nvoice].PFMEnabled);}
  374.           } {
  375.             menuitem {} {
  376.               label OFF
  377.               xywh {40 40 100 20} labelfont 1
  378.             }
  379.             menuitem {} {
  380.               label MORPH
  381.               xywh {50 50 100 20} labelfont 1
  382.             }
  383.             menuitem {} {
  384.               label RING
  385.               xywh {60 60 100 20} labelfont 1
  386.             }
  387.             menuitem {} {
  388.               label PM
  389.               xywh {70 70 100 20} labelfont 1
  390.             }
  391.             menuitem {} {
  392.               label FM
  393.               xywh {80 80 100 20} labelfont 1
  394.             }
  395.             menuitem {} {
  396.               label PITCH
  397.               xywh {90 90 100 20} labelfont 1 deactivate
  398.             }
  399.           }
  400.           Fl_Group {} {
  401.             label FREQUENCY
  402.             xywh {5 250 525 120} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  403.           } {
  404.             Fl_Group voicefreqenvgroup {
  405.               label {ADSynth Voice - Frequency Envelope} open
  406.               xywh {10 290 205 70} box FLAT_BOX color 51 align 144
  407.               code0 {o->init(pars->VoicePar[nvoice].FreqEnvelope);}
  408.               code1 {if (pars->VoicePar[nvoice].PFreqEnvelopeEnabled==0) o->deactivate();}
  409.               class EnvelopeUI
  410.             } {}
  411.             Fl_Check_Button {} {
  412.               label Enable
  413.               callback {pars->VoicePar[nvoice].PFreqEnvelopeEnabled=(int)o->value();
  414. if (o->value()==0) voicefreqenvgroup->deactivate();
  415. else voicefreqenvgroup->activate();
  416. o->redraw();}
  417.               tooltip {Forced Relase} xywh {15 295 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  418.               code0 {o->value(pars->VoicePar[nvoice].PFreqEnvelopeEnabled);}
  419.             }
  420.             Fl_Group voicefreqlfogroup {
  421.               label {Frequency LFO     } open
  422.               xywh {215 290 230 70} box FLAT_BOX color 47 align 144
  423.               code0 {o->init(pars->VoicePar[nvoice].FreqLfo);}
  424.               code1 {if (pars->VoicePar[nvoice].PFreqLfoEnabled==0) o->deactivate();}
  425.               class LFOUI
  426.             } {}
  427.             Fl_Check_Button {} {
  428.               label Enable
  429.               callback {pars->VoicePar[nvoice].PFreqLfoEnabled=(int)o->value();
  430. if (o->value()==0) voicefreqlfogroup->deactivate();
  431. else voicefreqlfogroup->activate();
  432. o->redraw();}
  433.               tooltip {Forced Relase} xywh {220 295 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  434.               code0 {o->value(pars->VoicePar[nvoice].PFreqLfoEnabled);}
  435.             }
  436.             Fl_Counter {} {
  437.               label Octave
  438.               callback {int k=(int) o->value();
  439. if (k<0) k+=16;
  440. pars->VoicePar[nvoice].PCoarseDetune = k*1024+
  441.    pars->VoicePar[nvoice].PCoarseDetune%1024;}
  442.               tooltip Octave xywh {470 270 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  443.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune/1024;}
  444.               code1 {if (k>=8) k-=16;}
  445.               code2 {o->value(k);}
  446.             }
  447.             Fl_Counter {} {
  448.               label {Coarse Det.}
  449.               callback {int k=(int) o->value();
  450. if (k<0) k+=1024;
  451. pars->VoicePar[nvoice].PCoarseDetune = k+
  452.    (pars->VoicePar[nvoice].PCoarseDetune/1024)*1024;}
  453.               tooltip {Coarse Detune} xywh {455 340 60 20} labelsize 11 align 1 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  454.               code0 {int k=pars->VoicePar[nvoice].PCoarseDetune%1024;}
  455.               code1 {if (k>=512) k-=1024;}
  456.               code2 {o->value(k);}
  457.               code3 {o->lstep(10);}
  458.             }
  459.             Fl_Slider {} {
  460.               callback {pars->VoicePar[nvoice].PDetune=(int)o->value()+8192;
  461. detunevalueoutput->do_callback();}
  462.               tooltip {Fine Detune (cents)} xywh {58 272 392 13} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  463.               code0 {o->value(pars->VoicePar[nvoice].PDetune-8192);}
  464.             }
  465.             Fl_Value_Output detunevalueoutput {
  466.               label Detune
  467.               callback {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}
  468.               xywh {10 272 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  469.               code0 {o->value(getdetune((pars->VoicePar[nvoice].PDetuneType==0)?(pars->GlobalPar.PDetuneType) : (pars->VoicePar[nvoice].PDetuneType),0,pars->VoicePar[nvoice].PDetune)*pars->getBandwidthDetuneMultiplier());}
  470.             }
  471.             Fl_Check_Button {} {
  472.               label 440Hz
  473.               callback {int x=(int) o->value();
  474. pars->VoicePar[nvoice].Pfixedfreq=x;
  475. if (x==0) fixedfreqetdial->deactivate();
  476.     else fixedfreqetdial->activate();}
  477.               tooltip {Set the voice base frequency to 440Hz} xywh {345 253 55 15} down_box DOWN_BOX labelfont 1 labelsize 12
  478.               code0 {o->value(pars->VoicePar[nvoice].Pfixedfreq);}
  479.             }
  480.             Fl_Dial fixedfreqetdial {
  481.               label {Eq.T.}
  482.               callback {pars->VoicePar[nvoice].PfixedfreqET=(int) o->value();}
  483.               tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {405 255 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1
  484.               code0 {o->value(pars->VoicePar[nvoice].PfixedfreqET);}
  485.               code1 {if (pars->VoicePar[nvoice].Pfixedfreq==0) o->deactivate();}
  486.               class WidgetPDial
  487.             }
  488.             Fl_Choice {} {
  489.               label {Detune Type}
  490.               callback {pars->VoicePar[nvoice].PDetuneType=(int) o->value();
  491. detunevalueoutput->do_callback();} open
  492.               xywh {450 305 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  493.               code0 {o->add("Default");o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  494.               code1 {o->value(pars->VoicePar[nvoice].PDetuneType);}
  495.             } {}
  496.           }
  497.           Fl_Group voiceoscil {
  498.             xywh {80 375 445 145} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  499.             code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  500.             code1 {int nv=nvoice; if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;}
  501.             code2 {osc->init(pars->VoicePar[nv].OscilSmp,0,pars->VoicePar[nvoice].Poscilphase,master);}
  502.           } {}
  503.           Fl_Button changevoiceoscilbutton {
  504.             label Change
  505.             callback {if (oscedit!=NULL) delete(oscedit);
  506.  
  507. int nv=nvoice;
  508. if (pars->VoicePar[nvoice].Pextoscil>=0) nv=pars->VoicePar[nvoice].Pextoscil;
  509.  
  510. oscedit=new OscilEditor(pars->VoicePar[nv].OscilSmp,voiceoscil,NULL,NULL,master);}
  511.             xywh {5 475 65 20} box THIN_UP_BOX labelfont 1 labelsize 12
  512.             code0 {if (pars->VoicePar[nvoice].Pextoscil>=0) o->labelcolor(FL_BLUE);}
  513.           }
  514.           Fl_Box {} {
  515.             label {Voice Oscillator}
  516.             xywh {5 375 75 35} labelfont 1 align 128
  517.           }
  518.           Fl_Slider {} {
  519.             label Phase
  520.             callback {pars->VoicePar[nvoice].Poscilphase=64-(int)o->value();
  521. osc->phase=64-(int) o->value();
  522. voiceoscil->redraw();}
  523.             xywh {10 420 65 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  524.             code0 {o->value(64-pars->VoicePar[nvoice].Poscilphase);}
  525.           }
  526.           Fl_Check_Button {} {
  527.             label {R.}
  528.             callback {pars->VoicePar[nvoice].Presonance=(int) o->value();}
  529.             tooltip {Resonance On/Off} xywh {210 5 35 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 12
  530.             code0 {o->value(pars->VoicePar[nvoice].Presonance);}
  531.           }
  532.           Fl_Choice {} {
  533.             label {Use Oscil.}
  534.             callback {pars->VoicePar[nvoice].Pextoscil=(int)o->value()-1;
  535. if ((int) o->value() != 0) {
  536.     osc->init(pars->VoicePar[(int) o->value()-1].OscilSmp,master);
  537.     changevoiceoscilbutton->labelcolor(FL_BLUE);
  538. } else { 
  539.     osc->init(pars->VoicePar[nvoice].OscilSmp,master);
  540.     changevoiceoscilbutton->labelcolor(FL_BLACK);
  541. };
  542.  
  543. voiceparametersgroup->redraw();
  544. voiceonbutton->redraw();} open
  545.             xywh {5 455 65 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  546.             code0 {o->add("Internal");}
  547.             code1 {char tmp[50]; for (int i=0;i<nvoice;i++) {sprintf(tmp,"Ext.%2d",i+1);o->add(tmp);};}
  548.             code3 {o->value(pars->VoicePar[nvoice].Pextoscil+1);}
  549.           } {}
  550.         }
  551.         Fl_Group {} {
  552.           label AMPLITUDE
  553.           xywh {5 40 240 210} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  554.         } {
  555.           Fl_Value_Slider {} {
  556.             label Vol
  557.             callback {pars->VoicePar[nvoice].PVolume=(int)o->value();}
  558.             tooltip Volume xywh {10 60 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  559.             code0 {o->value(pars->VoicePar[nvoice].PVolume);}
  560.           }
  561.           Fl_Value_Slider {} {
  562.             label {V.Sns}
  563.             callback {pars->VoicePar[nvoice].PAmpVelocityScaleFunction=(int) o->value();}
  564.             tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 80 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  565.             code0 {o->value(pars->VoicePar[nvoice].PAmpVelocityScaleFunction);}
  566.           }
  567.           Fl_Group voiceampenvgroup {
  568.             label {ADSynth Voice - Amplitude Envelope} open
  569.             xywh {10 105 205 70} box FLAT_BOX color 51 align 144
  570.             code0 {o->init(pars->VoicePar[nvoice].AmpEnvelope);}
  571.             code1 {if (pars->VoicePar[nvoice].PAmpEnvelopeEnabled==0) o->deactivate();}
  572.             class EnvelopeUI
  573.           } {}
  574.           Fl_Dial {} {
  575.             label Pan
  576.             callback {pars->VoicePar[nvoice].PPanning=(int) o->value();}
  577.             tooltip {Panning (leftmost is Random)} xywh {210 60 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  578.             code0 {o->value(pars->VoicePar[nvoice].PPanning);}
  579.             class WidgetPDial
  580.           }
  581.           Fl_Check_Button {} {
  582.             label Enable
  583.             callback {pars->VoicePar[nvoice].PAmpEnvelopeEnabled=(int)o->value();
  584. if (o->value()==0) voiceampenvgroup->deactivate();
  585. else voiceampenvgroup->activate();
  586. o->redraw();}
  587.             tooltip {Forced Relase} xywh {15 110 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  588.             code0 {o->value(pars->VoicePar[nvoice].PAmpEnvelopeEnabled);}
  589.           }
  590.           Fl_Group voiceamplfogroup {
  591.             label {Amplitude LFO     } open
  592.             xywh {10 175 230 70} box FLAT_BOX color 47 align 144
  593.             code0 {o->init(pars->VoicePar[nvoice].AmpLfo);}
  594.             code1 {if (pars->VoicePar[nvoice].PAmpLfoEnabled==0) o->deactivate();}
  595.             class LFOUI
  596.           } {}
  597.           Fl_Check_Button {} {
  598.             label Enable
  599.             callback {pars->VoicePar[nvoice].PAmpLfoEnabled=(int)o->value();
  600. if (o->value()==0) voiceamplfogroup->deactivate();
  601. else voiceamplfogroup->activate();
  602. o->redraw();}
  603.             tooltip {Forced Relase} xywh {15 180 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  604.             code0 {o->value(pars->VoicePar[nvoice].PAmpLfoEnabled);}
  605.           }
  606.           Fl_Check_Button {} {
  607.             label Minus
  608.             callback {pars->VoicePar[nvoice].PVolumeminus=(int)o->value();}
  609.             xywh {10 45 50 10} down_box DOWN_BOX labelfont 1 labelsize 10
  610.             code0 {o->value(pars->VoicePar[nvoice].PVolumeminus);}
  611.           }
  612.         }
  613.         Fl_Group voicefiltergroup {
  614.           label FILTER
  615.           xywh {245 5 285 245} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  616.           code0 {if (pars->VoicePar[nvoice].PFilterEnabled==0) o->deactivate();}
  617.         } {
  618.           Fl_Group {} {
  619.             label {ADsynth Voice - Filter} open
  620.             xywh {250 30 275 75} box FLAT_BOX color 50 align 144
  621.             code0 {o->init(pars->VoicePar[nvoice].VoiceFilter,NULL,NULL);}
  622.             class FilterUI
  623.           } {}
  624.           Fl_Group voicefilterenvgroup {
  625.             label {ADSynth Voice - Filter Envelope} open
  626.             xywh {250 105 275 70} box FLAT_BOX color 51 align 144
  627.             code0 {o->init(pars->VoicePar[nvoice].FilterEnvelope);}
  628.             code1 {if (pars->VoicePar[nvoice].PFilterEnvelopeEnabled==0) o->deactivate();}
  629.             class EnvelopeUI
  630.           } {}
  631.           Fl_Check_Button {} {
  632.             label Enable
  633.             callback {pars->VoicePar[nvoice].PFilterEnvelopeEnabled=(int)o->value();
  634. if (o->value()==0) voicefilterenvgroup->deactivate();
  635. else voicefilterenvgroup->activate();
  636. o->redraw();}
  637.             tooltip {Forced Relase} xywh {255 110 55 10} down_box DOWN_BOX labelfont 1 labelsize 10
  638.             code0 {o->value(pars->VoicePar[nvoice].PFilterEnvelopeEnabled);}
  639.           }
  640.           Fl_Group voicefilterlfogroup {
  641.             label {Filter LFO     } open
  642.             xywh {250 175 230 70} box FLAT_BOX color 47 align 144
  643.             code0 {o->init(pars->VoicePar[nvoice].FilterLfo);}
  644.             code1 {if (pars->VoicePar[nvoice].PFilterLfoEnabled==0) o->deactivate();}
  645.             class LFOUI
  646.           } {}
  647.           Fl_Check_Button {} {
  648.             label Enable
  649.             callback {pars->VoicePar[nvoice].PFilterLfoEnabled=(int)o->value();
  650. if (o->value()==0) voicefilterlfogroup->deactivate();
  651. else voicefilterlfogroup->activate();
  652. o->redraw();}
  653.             tooltip {Forced Relase} xywh {255 180 55 10} down_box DOWN_BOX labelfont 1 labelsize 12 align 24
  654.             code0 {o->value(pars->VoicePar[nvoice].PFilterLfoEnabled);}
  655.           }
  656.         }
  657.         Fl_Group {} {
  658.           label 01
  659.           xywh {5 5 55 35} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 30 align 16
  660.           code0 {char tmp[10];snprintf(tmp,10,"%d",nvoice+1);o->label(strdup(tmp));}
  661.         } {}
  662.         Fl_Choice {} {
  663.           callback {int x=(int) o->value();
  664. pars->VoicePar[nvoice].Type=x;
  665. if (x==0) voicemodegroup->activate();
  666.   else voicemodegroup->deactivate();
  667. noiselabel->do_callback();}
  668.           tooltip {Oscillator Type (sound/noise)} xywh {5 500 65 20} down_box BORDER_BOX labelsize 11 textfont 1 textsize 11
  669.           code0 {o->value(pars->VoicePar[nvoice].Type);}
  670.           code1 {if (pars->VoicePar[nvoice].Type!=0) voicemodegroup->deactivate();}
  671.         } {
  672.           menuitem {} {
  673.             label Sound
  674.             xywh {5 5 100 20} labelfont 1 labelsize 13
  675.           }
  676.           menuitem {} {
  677.             label NOISE
  678.             xywh {15 15 100 20} labelfont 1 labelsize 13 labelcolor 1
  679.           }
  680.         }
  681.         Fl_Check_Button bypassfiltercheckbutton {
  682.           label {Bypass Global F.}
  683.           callback {pars->VoicePar[nvoice].Pfilterbypass=(int)o->value();}
  684.           xywh {425 10 100 20} down_box DOWN_BOX labelfont 1 labelsize 10 align 148
  685.           code0 {o->value(pars->VoicePar[nvoice].Pfilterbypass);}
  686.         }
  687.         Fl_Group {} {
  688.           xywh {115 5 95 35} box THIN_UP_BOX
  689.         } {
  690.           Fl_Value_Slider {} {
  691.             label Delay
  692.             callback {pars->VoicePar[nvoice].PDelay=(int)o->value();}
  693.             tooltip Volume xywh {120 21 84 12} type {Horz Knob} box FLAT_BOX labelsize 12 align 5 maximum 127 step 1
  694.             code0 {o->value(pars->VoicePar[nvoice].PDelay);}
  695.           }
  696.         }
  697.         Fl_Check_Button {} {
  698.           label Enable
  699.           callback {pars->VoicePar[nvoice].PFilterEnabled=(int)o->value();
  700. if (o->value()==0) voicefiltergroup->deactivate();
  701. else voicefiltergroup->activate();
  702. o->redraw();
  703. bypassfiltercheckbutton->redraw();}
  704.           tooltip {Enable Filter} xywh {250 15 60 15} down_box DOWN_BOX labelfont 1 labelsize 12
  705.           code0 {o->value(pars->VoicePar[nvoice].PFilterEnabled);}
  706.         }
  707.         Fl_Box noiselabel {
  708.           label {White Noise}
  709.           callback {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}
  710.           xywh {150 415 300 65} labelfont 1 labelsize 50 labelcolor 7
  711.           code0 {if (pars->VoicePar[nvoice].Type==0) o->hide(); else o->show();}
  712.         }
  713.       }
  714.       Fl_Check_Button voiceonbutton {
  715.         label On
  716.         callback {pars->VoicePar[nvoice].Enabled=(int)o->value();
  717. if (o->value()==0) voiceparametersgroup->deactivate();
  718. else voiceparametersgroup->activate();
  719. o->redraw();}
  720.         xywh {60 5 55 35} box THIN_UP_BOX down_box DOWN_BOX labelfont 1 labelsize 16
  721.         code0 {o->value(pars->VoicePar[nvoice].Enabled);}
  722.       }
  723.     }
  724.   }
  725.   Function {ADvoiceUI(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  726.     code {nvoice=0;
  727. pars=NULL;
  728. oscedit=NULL;} {}
  729.   }
  730.   Function {init(ADnoteParameters *parameters,int nvoice_,Master *master_)} {} {
  731.     code {pars=parameters;
  732. nvoice=nvoice_;
  733. master=master_;
  734. make_window();
  735. end();
  736. ADnoteVoiceParameters->show();} {}
  737.   }
  738.   Function {~ADvoiceUI()} {} {
  739.     code {ADnoteVoiceParameters->hide();
  740. hide();
  741. if (oscedit!=NULL) {
  742.     delete(oscedit);
  743. };
  744. //delete (ADnoteVoiceParameters);} {}
  745.   }
  746.   decl {int nvoice;} {}
  747.   decl {ADnoteParameters *pars;} {}
  748.   decl {OscilEditor *oscedit;} {}
  749.   decl {Oscilloscope *osc;} {}
  750.   decl {Oscilloscope *oscFM;} {}
  751.   decl {Master *master;} {}
  752. } 
  753.  
  754. class ADnoteUI {: {public PresetsUI_}
  755. } {
  756.   Function {make_window()} {private
  757.   } {
  758.     Fl_Window ADnoteGlobalParameters {
  759.       label {ADsynth Global Parameters of the Instrument}
  760.       xywh {66 187 535 405} type Double hide
  761.     } {
  762.       Fl_Group {} {
  763.         label FREQUENCY
  764.         xywh {5 255 525 115} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  765.       } {
  766.         Fl_Group freqenv {
  767.           label {ADSynth Global - Frequency Envelope} open
  768.           xywh {10 295 205 70} box FLAT_BOX color 51 align 144
  769.           code0 {o->init(pars->GlobalPar.FreqEnvelope);}
  770.           class EnvelopeUI
  771.         } {}
  772.         Fl_Counter octave {
  773.           label Octave
  774.           callback {int k=(int) o->value();
  775. if (k<0) k+=16;
  776. pars->GlobalPar.PCoarseDetune = k*1024+
  777.    pars->GlobalPar.PCoarseDetune%1024;}
  778.           tooltip Octave xywh {450 275 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  779.           code0 {int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;}
  780.           code2 {o->value(k);}
  781.         }
  782.         Fl_Counter coarsedet {
  783.           label {Coarse det.}
  784.           callback {int k=(int) o->value();
  785. if (k<0) k+=1024;
  786. pars->GlobalPar.PCoarseDetune = k+
  787.    (pars->GlobalPar.PCoarseDetune/1024)*1024;}
  788.           tooltip {Coarse Detune} xywh {455 345 60 20} labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  789.           code0 {int k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;}
  790.           code2 {o->value(k);}
  791.           code3 {o->lstep(10);}
  792.         }
  793.         Fl_Group freqlfo {
  794.           label {Frequency LFO     } open
  795.           xywh {215 295 230 70} box FLAT_BOX color 47 align 144
  796.           code0 {o->init(pars->GlobalPar.FreqLfo);}
  797.           class LFOUI
  798.         } {}
  799.         Fl_Slider freq {
  800.           callback {pars->GlobalPar.PDetune=(int)o->value()+8192;
  801. detunevalueoutput->do_callback();}
  802.           tooltip {Fine Detune (cents)} xywh {60 275 385 15} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  803.           code0 {o->value(pars->GlobalPar.PDetune-8192);}
  804.         }
  805.         Fl_Value_Output detunevalueoutput {
  806.           label Detune
  807.           callback {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}
  808.           xywh {12 275 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  809.           code0 {o->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));}
  810.         }
  811.         Fl_Choice detunetype {
  812.           label {Detune Type}
  813.           callback {pars->GlobalPar.PDetuneType=(int) o->value()+1;
  814. detunevalueoutput->do_callback();} open
  815.           xywh {450 315 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  816.           code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  817.           code1 {o->value(pars->GlobalPar.PDetuneType-1);}
  818.         } {}
  819.         Fl_Dial {} {
  820.           label relBW
  821.           callback {pars->GlobalPar.PBandwidth=(int) o->value();
  822.  
  823. pars->getBandwidthDetuneMultiplier();
  824.  
  825. for (int i=0;i<NUM_VOICES;i++){
  826.   voicelistitem[i]->refreshlist();
  827. };}
  828.           tooltip {Bandwidth - how the relative fine detune of the voice are changed} xywh {500 270 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  829.           code0 {o->value(pars->GlobalPar.PBandwidth);}
  830.           class WidgetPDial
  831.         }
  832.       }
  833.       Fl_Group {} {
  834.         label AMPLITUDE
  835.         xywh {5 5 240 250} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  836.       } {
  837.         Fl_Value_Slider volume {
  838.           label Vol
  839.           callback {pars->GlobalPar.PVolume=(int)o->value();}
  840.           tooltip Volume xywh {10 30 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  841.           code0 {o->value(pars->GlobalPar.PVolume);}
  842.         }
  843.         Fl_Value_Slider vsns {
  844.           label {V.Sns}
  845.           callback {pars->GlobalPar.PAmpVelocityScaleFunction=(int) o->value();}
  846.           tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 50 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  847.           code0 {o->value(pars->GlobalPar.PAmpVelocityScaleFunction);}
  848.         }
  849.         Fl_Dial pan {
  850.           label Pan
  851.           callback {pars->GlobalPar.PPanning=(int) o->value();}
  852.           tooltip {Panning (leftmost is Random)} xywh {210 25 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  853.           code0 {o->value(pars->GlobalPar.PPanning);}
  854.           class WidgetPDial
  855.         }
  856.         Fl_Dial pstr {
  857.           label {P.Str.}
  858.           callback {pars->GlobalPar.PPunchStrength=(int) o->value();}
  859.           tooltip {Punch Strength} xywh {125 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  860.           code0 {o->value(pars->GlobalPar.PPunchStrength);}
  861.           class WidgetPDial
  862.         }
  863.         Fl_Dial pt {
  864.           label {P.t.}
  865.           callback {pars->GlobalPar.PPunchTime=(int) o->value();}
  866.           tooltip {Punch Time (duration)} xywh {155 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  867.           code0 {o->value(pars->GlobalPar.PPunchTime);}
  868.           class WidgetPDial
  869.         }
  870.         Fl_Dial pstc {
  871.           label {P.Stc.}
  872.           callback {pars->GlobalPar.PPunchStretch=(int) o->value();}
  873.           tooltip {Punch Stretch} xywh {185 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  874.           code0 {o->value(pars->GlobalPar.PPunchStretch);}
  875.           class WidgetPDial
  876.         }
  877.         Fl_Dial pvel {
  878.           label {P.Vel.}
  879.           callback {pars->GlobalPar.PPunchVelocitySensing=(int) o->value();}
  880.           tooltip {Punch Velocity Sensing} xywh {215 227 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  881.           code0 {o->value(pars->GlobalPar.PPunchVelocitySensing);}
  882.           class WidgetPDial
  883.         }
  884.         Fl_Group ampenv {
  885.           label {ADSynth Global - Amplitude Envelope} open
  886.           xywh {10 75 205 70} box FLAT_BOX color 51 align 144
  887.           code0 {o->init(pars->GlobalPar.AmpEnvelope);}
  888.           class EnvelopeUI
  889.         } {}
  890.         Fl_Group amplfo {
  891.           label {Amplitude LFO          } open
  892.           xywh {10 145 230 70} box FLAT_BOX color 47 align 144
  893.           code0 {o->init(pars->GlobalPar.AmpLfo);}
  894.           class LFOUI
  895.         } {}
  896.         Fl_Check_Button rndgrp {
  897.           label {Rnd Grp}
  898.           callback {pars->GlobalPar.Hrandgrouping=(int) o->value();}
  899.           tooltip {How the Harmonic Amplitude is applied to voices that use the same oscillator} xywh {70 225 40 25} down_box DOWN_BOX labelsize 10 align 148
  900.           code0 {o->value(pars->GlobalPar.Hrandgrouping);}
  901.         }
  902.       }
  903.       Fl_Group {} {
  904.         label FILTER
  905.         xywh {245 5 285 250} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  906.       } {
  907.         Fl_Group filterenv {
  908.           label {ADSynth Global - Filter Envelope} open
  909.           xywh {250 110 275 70} box FLAT_BOX color 51 align 144
  910.           code0 {o->init(pars->GlobalPar.FilterEnvelope);}
  911.           class EnvelopeUI
  912.         } {}
  913.         Fl_Group filterlfo {
  914.           label {Filter LFO} open
  915.           xywh {250 180 230 70} box FLAT_BOX color 47 align 144
  916.           code0 {o->init(pars->GlobalPar.FilterLfo);}
  917.           class LFOUI
  918.         } {}
  919.         Fl_Group filterui {
  920.           label {ADsynth Global - Filter} open
  921.           xywh {250 35 275 75} box FLAT_BOX color 50 align 144
  922.           code0 {o->init(pars->GlobalPar.GlobalFilter,&pars->GlobalPar.PFilterVelocityScale,&pars->GlobalPar.PFilterVelocityScaleFunction);}
  923.           class FilterUI
  924.         } {}
  925.       }
  926.       Fl_Check_Button stereo {
  927.         label Stereo
  928.         callback {pars->GlobalPar.PStereo=(int) o->value();}
  929.         xywh {5 220 65 35} box ENGRAVED_BOX down_box DOWN_BOX labelfont 1 labelsize 12
  930.         code0 {o->value(pars->GlobalPar.PStereo);}
  931.       }
  932.       Fl_Button {} {
  933.         label {Show Voice List}
  934.         callback {for (int i=0;i<NUM_VOICES;i++){
  935.   voicelistitem[i]->refreshlist();
  936. }
  937. ADnoteVoiceList->show();}
  938.         xywh {180 375 125 25}
  939.       }
  940.       Fl_Button {} {
  941.         label {Show Voice Parameters}
  942.         callback {ADnoteVoice->show();}
  943.         xywh {5 375 170 25} labelfont 1
  944.       }
  945.       Fl_Button {} {
  946.         label Close
  947.         callback {ADnoteGlobalParameters->hide();}
  948.         xywh {470 375 60 25} box THIN_UP_BOX
  949.       }
  950.       Fl_Button {} {
  951.         label Resonance
  952.         callback {resui->resonancewindow->redraw();
  953. resui->resonancewindow->show();}
  954.         tooltip Resonance xywh {309 375 86 25} box THIN_UP_BOX
  955.       }
  956.       Fl_Button {} {
  957.         label C
  958.         callback {presetsui->copy(pars);}
  959.         xywh {405 380 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  960.       }
  961.       Fl_Button {} {
  962.         label P
  963.         callback {presetsui->paste(pars,this);}
  964.         xywh {435 380 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  965.       }
  966.     }
  967.     Fl_Window ADnoteVoice {
  968.       label {ADsynth Voice Parameters}
  969.       xywh {53 58 765 560} type Double hide
  970.     } {
  971.       Fl_Group advoice {
  972.         xywh {0 0 760 525} box BORDER_BOX
  973.         code0 {o->init(pars,nvoice,master);}
  974.         code1 {o->show();}
  975.         class ADvoiceUI
  976.       } {}
  977.       Fl_Button {} {
  978.         label {Close Window}
  979.         callback {ADnoteVoice->hide();}
  980.         xywh {300 530 195 25} box THIN_UP_BOX labelfont 1
  981.       }
  982.       Fl_Counter currentvoicecounter {
  983.         label {Current Voice}
  984.         callback {nvoice=(int)o->value()-1;
  985. advoice->hide();
  986. ADnoteVoice->remove(advoice);
  987. delete advoice;
  988. advoice=new ADvoiceUI(0,0,765,525);
  989. ADnoteVoice->add(advoice);
  990. advoice->init(pars,nvoice,master);
  991. advoice->show();
  992. ADnoteVoice->redraw();}
  993.         xywh {5 530 130 25} type Simple labelfont 1 align 8 minimum 0 maximum 2 step 1 value 1 textfont 1 textsize 18
  994.         code0 {o->bounds(1,NUM_VOICES);}
  995.       }
  996.       Fl_Button {} {
  997.         label C
  998.         callback {presetsui->copy(pars,nvoice);}
  999.         xywh {700 535 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  1000.       }
  1001.       Fl_Button {} {
  1002.         label P
  1003.         callback {presetsui->paste(pars,this,nvoice);}
  1004.         xywh {730 535 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  1005.       }
  1006.     }
  1007.     Fl_Window ADnoteVoiceList {
  1008.       label {ADsynth Voices list}
  1009.       xywh {32 266 650 260} type Double hide
  1010.     } {
  1011.       Fl_Text_Display {} {
  1012.         label {No.}
  1013.         xywh {10 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1014.       }
  1015.       Fl_Text_Display {} {
  1016.         label Vol
  1017.         xywh {145 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1018.       }
  1019.       Fl_Text_Display {} {
  1020.         label Detune
  1021.         xywh {384 15 25 10} box NO_BOX labelfont 1 labelsize 13
  1022.       }
  1023.       Fl_Text_Display {} {
  1024.         label Pan
  1025.         xywh {210 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1026.       }
  1027.       Fl_Text_Display {} {
  1028.         label {Vib. Depth}
  1029.         xywh {560 15 30 10} box NO_BOX labelfont 1 labelsize 13
  1030.       }
  1031.       Fl_Text_Display {} {
  1032.         label {R.}
  1033.         xywh {245 15 25 10} box NO_BOX labelfont 1 labelsize 13
  1034.       }
  1035.       Fl_Button {} {
  1036.         label {Hide Voice List}
  1037.         callback {ADnoteVoiceList->hide();}
  1038.         xywh {255 237 125 20}
  1039.       }
  1040.       Fl_Scroll {} {open
  1041.         xywh {0 15 640 220} type VERTICAL box THIN_UP_BOX
  1042.       } {
  1043.         Fl_Pack {} {open
  1044.           xywh {0 20 620 210}
  1045.           code0 {for (int i=0;i<NUM_VOICES;i++){voicelistitem[i]=new ADvoicelistitem(0,0,620,25,"");voicelistitem[i]->init(pars,i,master);}}
  1046.         } {}
  1047.       }
  1048.     }
  1049.   }
  1050.   Function {ADnoteUI(ADnoteParameters *parameters,Master *master_)} {} {
  1051.     code {pars=parameters;
  1052. master=master_;
  1053. nvoice=0;
  1054. resui=new ResonanceUI(pars->GlobalPar.Reson);
  1055. make_window();} {}
  1056.   }
  1057.   Function {~ADnoteUI()} {} {
  1058.     code {ADnoteVoiceList->hide();
  1059. ADnoteGlobalParameters->hide();
  1060. ADnoteVoice->hide();
  1061. delete(ADnoteVoiceList);
  1062. delete(ADnoteGlobalParameters);
  1063. delete(ADnoteVoice);
  1064. delete(resui);} {}
  1065.   }
  1066.   Function {refresh()} {} {
  1067.     code {volume->value(pars->GlobalPar.PVolume);
  1068. vsns->value(pars->GlobalPar.PAmpVelocityScaleFunction);
  1069. pan->value(pars->GlobalPar.PPanning);
  1070.  
  1071. stereo->value(pars->GlobalPar.PStereo);
  1072. rndgrp->value(pars->GlobalPar.Hrandgrouping);
  1073.  
  1074. pstr->value(pars->GlobalPar.PPunchStrength);
  1075. pt->value(pars->GlobalPar.PPunchTime);
  1076. pstc->value(pars->GlobalPar.PPunchStretch);
  1077. pvel->value(pars->GlobalPar.PPunchVelocitySensing);
  1078.  
  1079. detunevalueoutput->value(getdetune(pars->GlobalPar.PDetuneType,0,pars->GlobalPar.PDetune));
  1080. freq->value(pars->GlobalPar.PDetune-8192);
  1081.  
  1082. int k=pars->GlobalPar.PCoarseDetune/1024;if (k>=8) k-=16;
  1083. octave->value(k);
  1084.  
  1085. detunetype->value(pars->GlobalPar.PDetuneType-1);
  1086. k=pars->GlobalPar.PCoarseDetune%1024;if (k>=512) k-=1024;
  1087. coarsedet->value(k);
  1088. amplfo->refresh();
  1089. freqlfo->refresh();
  1090. filterlfo->refresh();
  1091.  
  1092. ampenv->refresh();
  1093. freqenv->refresh();
  1094. filterenv->refresh();
  1095. filterui->refresh();
  1096.  
  1097. for (int i=0;i<NUM_VOICES;i++) voicelistitem[i]->refreshlist();
  1098.  
  1099. resui->refresh();
  1100. currentvoicecounter->do_callback();} {}
  1101.   }
  1102.   decl {ADnoteParameters *pars;} {}
  1103.   decl {ResonanceUI *resui;} {}
  1104.   decl {Master *master;} {}
  1105.   decl {int nvoice;} {}
  1106.   decl {ADvoicelistitem *voicelistitem[NUM_VOICES];} {}
  1107. } 
  1108.